From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jun 1994 00:34:11 +0000 (+0000)
Subject: (user-mail-address): New variable.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~91014
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=c10d1f062efd64e5f1a8aa799e2b4feb68483667;p=emacs.git

(user-mail-address): New variable.
(normal-top-level): Initialize it.
---

diff --git a/lisp/startup.el b/lisp/startup.el
index 6a32bb10a36..dadce5b3d41 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -141,6 +141,9 @@ higher incidence of change, don't make sense to load into emacs'
 dumped image.  Thus, the run-time load order is: 1. file described in
 this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
 
+(defvar user-mail-address nil
+  "Full mailing address of this user.")
+
 (defvar init-file-debug nil)
 
 (defvar init-file-had-error nil)
@@ -165,6 +168,7 @@ this variable, if non-nil; 2. `~/.emacs'; 3. `default.el'.")
 			   (delete (concat "PWD=" pwd)
 				   process-environment)))))))
     (setq default-directory (abbreviate-file-name default-directory))
+    (setq user-mail-address (concat (user-login-name) "@" (system-name)))
     (let ((menubar-bindings-done nil))
       (unwind-protect
 	  (command-line)